﻿Imports System
Imports System.CodeDom
Imports System.Collections
Imports System.Reflection

Namespace System.Workflow.Activities.Rules
    Friend Class MemberSymbol
        Inherits Symbol
        ' Methods
        Friend Sub New(ByVal member As MemberInfo)
            Me.member = member
        End Sub

        Friend Overrides Function ParseRootIdentifier(ByVal parser As Parser, ByVal parserContext As ParserContext, ByVal assignIsEquality As Boolean) As CodeExpression
            Return parser.ParseUnadornedMemberIdentifier(parserContext, Me, assignIsEquality)
        End Function

        Friend Overrides Sub RecordSymbol(ByVal list As ArrayList)
            list.Add(Me.member)
        End Sub


        ' Properties
        Friend Overrides ReadOnly Property Name As String
            Get
                Return Me.member.Name
            End Get
        End Property


        ' Fields
        Private member As MemberInfo
    End Class
End Namespace

